home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 1.iso
/
ARGONET
/
PD
/
MATHS
/
RLAB
/
RLAB125.ZIP
/
!RLaB
/
toolbox
/
jordan
< prev
next >
Wrap
Text File
|
1994-06-26
|
470b
|
19 lines
//-------------------------------------------------------------------//
// Synopsis: Jordan block matrix.
// Syntax: J = jordan ( N , LAMBDA )
// Description:
// J is the N-by-N Jordan block with eigenvalue LAMBDA.
// LAMBDA = 1 is the default.
//-------------------------------------------------------------------//
jordan = function ( n , lambda )
{
if(!exist (lambda)) { lambda = 1; }
return ( lambda*eye(n,n) + diag(ones(n-1,1),1) );
};